home *** CD-ROM | disk | FTP | other *** search
/ Your Web Site Creator / Your Web Site Creator.iso / WebSite / data1.cab / Program_Executable_Files / scripts / nwmember.dat < prev    next >
Encoding:
Text File  |  1999-01-13  |  51.7 KB  |  1,791 lines
  1. ; NWMEMBER.DAT         Maintain Family Member Info and Manage MEET FAMILY PAGE
  2.  
  3. ;xxxxxxxxxxxxxxxx  ADD A NEW FAMILY MEMBER   xxxxxxxxxxxxxxxxxxxxxx
  4. [AddNewMember]
  5. IF nMembers = 11
  6.   GOTO NoMore
  7. ENDIF
  8. GOSUB InitAddMem            ;set prompts, clear fields
  9.  
  10. IF skipExplanations = NN
  11.  BACKSTOP
  12.  PAGE
  13.  WIZPIC wizpics\wizfm128.gif
  14.  TYPE DESCRIPTION
  15.  DESCRIPTION \nADD ANOTHER FAMILY MEMBER TO THE WEB SITE\nThis will add a page to your family Web site for a new family member that you would like to include.\n\nYou will have the option of adding a person or a pet (a different kind of family member).\n\nFor people, you will also have the option to create just one page for the person with some basic information or a mini-Web site for the person that contains multiple personal interest pages.
  16. ENDIF
  17.  
  18. SETTEMP pageOrSite = "page"
  19.  
  20. SETTEMP nSel = add( nMembers 1 )
  21.  
  22. SETTEMP caption = "The first information you must enter for the new family member is their first name.\n\n"
  23. BACKSTOP
  24. GOSUB InputBasicMemberInfo      ;name, type, gender, photo
  25.  
  26. SETTEMP memTypVar = "memberType",nSel
  27. SETTEMP type = eval( memTypVar )
  28.  
  29. GOSUB InputMemberDetails        ;get other info
  30.  
  31. BUSY 1
  32. ARGUMENT "There will be a momentary delay while the wizard creates a page for ",name,".  Please stand by."
  33.  
  34. SET nMembers = add( nMembers 1 )    ;make perm adjustment
  35. GOSUB BuildMemberPages
  36. BUSY 0
  37.  
  38. [NoMore]
  39. MESSAGEBOX "You already have included 11 family members in your site.  The wizard's memory is not good enough to remember information for more than eleven members.  Sorry!"
  40.  
  41.  
  42. ;xxxxxxxxxxxxx  EDIT and REPLACE FAMILY MEMBER'S INFORMATION  xxxxxxxxxx
  43. [EditAMember]
  44. GOSUB InitAddMem
  45.  
  46. ; get member to change
  47. SETTEMP caption = mod_caption
  48. GOSUB PickAFamilyMember
  49.  
  50. GOSUB SetMemberTempVars ;set their values
  51. GOSUB DeterminePersPages
  52. IF hasMPFavs = NN && hasMPActs = NN && hasMPNews = NN && hasMPGift = NN && hasMPPho = NN 
  53.   SETTEMP pageOrSite = "page"
  54.   SET eval( memMPVar ) = pageOrSite
  55. ENDIF
  56.  
  57. SETTEMP doBuild = ""
  58.  
  59. IF arrayelement( infoRetrievedArray nSel ) = YY
  60.   GOSUB ChangeMemberInformation
  61. ELSE
  62.   MESSAGEBOX name," is one of the family members with incomplete information.  You can enter all of the information for ",name," now."
  63.   GOSUB InputMemberDetails
  64.   SETTEMP doBuild = YY
  65.   GOSUB ChangeMemberInformation
  66. ENDIF
  67.  
  68. IF doBuild = YY
  69.   BUSY 1
  70.   ARGUMENT "The wizard is now replacing the pages in your site with updated ones containing the new information.  It will take just a moment."
  71.   GOSUB BuildMemberPages
  72.   BUSY 0
  73.   SETTEMP doBuild = ""
  74. ENDIF
  75.  
  76.  
  77. ;xxxxxxxxxxxxxxx  Select and REPLACE MEMBER'S INFORMATION  xxxxxxxxxxxxx
  78. [ChangeMemberInformation]
  79. SETTEMP old_type = type        ; prepare to watch for a change
  80. SETTEMP old_gender = gender
  81. SETTEMP chg_prompt = "You can change any of the information for ",name,".  Simply choose an item from this list below and you can make changes.\n\nWhen you are finished with all the changes, choose the last item (done) to save the changes."
  82. SETTEMP don_prm = "&Done. Finished with changes."
  83. SETTEMP don_txt = "\nChoose this item when you are finished making changes to the site information for ",name,"."
  84.  
  85. SETTEMP inpL1 = 6
  86.  
  87. BACKSTOP
  88.  
  89. IF type <> "Pet"
  90.   IF pageOrSite = "page"
  91.     SETTEMP mult_prmpt = "\n",name," does not presently have a multiple page personal site."
  92.     SETTEMP mult_prmpt2 = "add the customized personal site content to what you have already."
  93.   ELSE
  94.     SETTEMP mult_prmpt = "\n",name," presently has a multiple page, customized personal site."
  95.     SETTEMP mult_prmpt2 = "make changes to the information there already or to add more."
  96.   ENDIF
  97.   SETTEMP mult_prmpt = mult_prmpt,"\n\nChoose this item if you would like to ",mult_prmpt2
  98.  
  99.   PAGE
  100.   WIZPIC wizpics\wizchoz3.gif
  101.   TYPE RADIOBUTTONSWITHTEXT
  102.   NAME inpL1
  103.   DESCRIPTION_RE chg_prompt
  104.   ARGUMENT "Personal &Information"@1@"\nUse this item to change the person's information that was tailored for them at the time it was entered."
  105.   ARGUMENT "&Custom Personal Pages"@2@mult_prmpt
  106.   ARGUMENT "Phot&o. Change the person's photo"@3@"\nUse this item to choose a different photograph for ",name," to use in the Web site.\n\nThe wizard will automatically change all occurrences of the photo throughout the Web site."
  107.   ARGUMENT "&Style.  Change style for page"@4@"\nChoose this item if you want to change the styling for the personal information page."
  108.   ARGUMENT "&Basic Info. Name, gender, and type."@5@"\nChoose this item to change the person's name or gender, if you made a mistake when entering them originally."
  109.   ARGUMENT don_prm@6@don_txt
  110. ELSE
  111.   PAGE
  112.   WIZPIC wizpics\wizchoz3.gif
  113.   TYPE RADIOBUTTONSWITHTEXT
  114.   NAME inpL1
  115.   DESCRIPTION_RE chg_prompt
  116.   ARGUMENT "&Information about ",name@7@"\nChoose this to change the information about your pet."
  117.   ARGUMENT "Phot&o. Change the pet's photo."@3@"\nUse this item to choose a different photograph of your pet."
  118.   ARGUMENT "&Style.  Change style of pet's page."@4@"\nChoose this item if you want to change the styling for the pet's page."
  119.   ARGUMENT "N&ame and type."@5@"\nChoose this item if you want to change the pet's name, perhaps because you spelled it wrong.\n\nThe name presently reads `",name,"'.\n\nChoose this item if you mistakenly classified this family member as a pet and want to change the designation to a person.\n\nIt is possible that you made a mistake when you entered the information."
  120.   ARGUMENT don_prm@6@don_txt
  121. ENDIF
  122.  
  123. ; save old photo
  124. SETTEMP oldPhoto = ""
  125. COPY oldPhoto = eval( "memberPhoto",nSel )
  126.  
  127. IF inpL1 <> 6
  128.   IF inpL1 = 5
  129.     GOSUB ChangeBasicInfo
  130.   ENDIF
  131.  
  132.   IF inpL1 = 7
  133.     GOSUB GetPetInfo
  134.     GOSUB GetPgStyle
  135.     SETTEMP doBuild = YY
  136.   ENDIF
  137.  
  138.   IF inpL1 = 3
  139.      COPY oldPhoto = photo
  140.      ; get new photo
  141.      BACKSTOP
  142.      GOSUB GetPhotoType
  143.      GOSUB GetMemberPicture
  144.  
  145.      ; do the replacement
  146.      COPY photo = eval( "memberPhoto",nSel )
  147.      GOSUB ReplaceMemberPhoto
  148.   ENDIF
  149.  
  150.   IF inpL1 = 1
  151.     GOSUB GetInterestsEtc
  152.     SETTEMP doBuild = YY
  153.   ENDIF
  154.  
  155.   IF inpL1 = 2 && type <> "Pet"
  156.     SETTEMP old_value = pageOrSite
  157.     GOSUB AskSimpleOrMP
  158.     IF pageOrSite = "MP"
  159.       GOSUB ChgMPInfo
  160.       IF old_value = "page"  ;see if needs to be reversed
  161.         IF hasMPFavs = NN && hasMPActs = NN && hasMPNews = NN && hasMPGift = NN && hasMPPho = NN 
  162.           SETTEMP pageOrSite = "page"
  163.           SET eval( memMPVar ) = pageOrSite
  164.         ENDIF
  165.       ENDIF
  166.     ENDIF
  167.     SETTEMP deletePages = 0
  168.     IF pageOrSite = "page"
  169.       IF old_value = "MP"
  170.         ;change old pages to empty  ET7
  171.          SETTEMP deletePages = 1
  172.       ENDIF
  173.     ENDIF
  174.     IF pageOrSite <> old_value
  175.       SETTEMP doBuild = YY
  176.     ENDIF
  177.   ENDIF
  178.  
  179.   IF inpL1 = 4
  180.     GOSUB GetPgStyle
  181.     SETTEMP doBuild = YY
  182.   ENDIF
  183.  
  184.   SETTEMP inpL1 = 6
  185.   GOTO ChangeMemberInformation    ;do another change
  186. ENDIF    ; if inpL1 <> 6
  187.  
  188. ;xxxxxxxxxxxxxxxxxx CHANGE BASIC INFO xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  189. [ChangeBasicInfo]
  190. SETTEMP inpL2 = 4
  191.  
  192. BACKSTOP
  193. PAGE
  194. WIZPIC wizpics\wizchoz3.gif
  195. TYPE RADIOBUTTONSWITHTEXT
  196. NAME inpL2
  197. DESCRIPTION_RE chg_prompt
  198. ARGUMENT "N&ame. Change the person's name"@1@"\nChoose this item if you want to change the person's name, perhaps to enter a nickname instead of a formal name, or vice-versa.\n\nThe name presently reads `",name,"'."
  199. ARGUMENT "&Gender.  Male or female."@2@"\nChoose this item if you inadvertently entered the wrong gender for ",name,".\n\nThe present setting is ",gender,"."
  200. ARGUMENT "Typ&e. Adult, child, or pet."@3@"\nChoose this item to change the designation for a person, for example, from adult to child.\n\nIt is possible that you made a mistake when you entered the information.\n\nThe present setting is ",type,"."
  201. ARGUMENT don_prm@4@don_txt
  202.  
  203. IF inpL2 <> 4
  204.   IF inpL2 = 1
  205.     BACKSTOP
  206.     SETTEMP old_name = name
  207.     SETTEMP caption = "Confirm the first name of this family member that you entered earlier.  Is it spelled correctly?\n\n"
  208.     GOSUB GetMemberFirstName
  209.  
  210.     IF old_name <> name
  211.       ; if member does not have a photo, then must also change banner
  212.       SETTEMP hasPhotoVar = "memberHasPhoto",nSel
  213.       SETTEMP hasPhoto = eval( hasPhotoVar )
  214.       IF hasPhoto = NN
  215.         COPY oldPhoto = photo
  216.         GOSUB MakeMemberPhotoPlaceholder
  217.         SETTYPE photo = normal
  218.         COPY eval( "memberPhoto",nSel ) = photo
  219.         GOSUB ReplaceMemberPhoto
  220.       ENDIF
  221.       SETTEMP doBuild = YY
  222.     ENDIF
  223.   ENDIF
  224.  
  225.   IF inpL2 = 3
  226.     GOSUB GetMemberType
  227.     IF type <> old_type
  228.       IF old_type = "Pet"    ;change from pet to anything
  229.         GOSUB InputMemberDetails     ;get it all
  230.       ELSE  ;old type was adult or child
  231.         IF type = "Child"  ;changed from adult
  232.           GOSUB GetChildInfo
  233.         ENDIF
  234.         IF type <> "Pet"
  235.           GOSUB GetPgStyle    ;restyle if type is not the same
  236.         ENDIF
  237.       ENDIF
  238.       IF type = "Pet"    ;changed to pet, get new details
  239.         GOSUB GetPetInfo
  240.         GOSUB GetPgStyle
  241.       ENDIF
  242.       SETTEMP doBuild = YY
  243.     ENDIF
  244.   ENDIF
  245.  
  246.   IF inpL2 = 2
  247.     GOSUB GetMemberGender
  248.     IF gender <> old_gender
  249.       GOSUB GetPgStyle
  250.     ENDIF
  251.     SETTEMP doBuild = YY
  252.   ENDIF
  253.   SETTEMP inpL2 = 4
  254.   GOTO ChangeBasicInfo    ;do another change
  255. ENDIF    ; if inpL2 <> 4
  256.  
  257.  
  258.  
  259. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  260. ;xxxxxxxxxxxxxxxxxxx INPUT BASIC MEMBER INFORMATION xxxxxxxxxxxxxxxxxxxxxxx
  261. [InputBasicMemberInfo]
  262. GOSUB GetMemberFirstName        ;both of these are in NWMEMBER.DAT
  263. GOSUB GetMemberType             ;adult, child, or pet
  264. GOSUB GetMemberGender
  265. IF arrayelement( assignStyle nSel ) = 1
  266.   GOSUB SetNewMemberDefaults       ;set page style & photo
  267.   SET arrayelement( assignStyle nSel ) = ""  ;go thru once only
  268. ENDIF
  269. BACKSTOP
  270. GOSUB GetPhotoType          ;do they have or want photo or use std or none
  271. GOSUB GetMemberPicture          ; in MEMPIX.DAT
  272.  
  273.  
  274.  
  275. ;xxxxxxxxxxxxxxxxxxxxxxxxxx  GET FIRST NAME xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  276. [GetMemberFirstName]
  277. SETTEMP memNmVar = "memberName",nSel
  278. SETTEMP name = eval( memNmVar )
  279.  
  280. PAGE
  281. NOSPELLCHECK
  282. NAME name
  283. WIZPIC wizpics\wizcaptn.gif
  284. DESCRIPTION_RE caption,"Enter the given name, or a nickname if you prefer.  For example, you can enter Charles or Charlie.  Be sure to use `mixed case'.  Do NOT type in all upper case."
  285. TYPE EDIT
  286. PROMPT &Family member's first name:
  287.  
  288. IF name = ""
  289.   MESSAGEBOX "You must enter a name for this member of the family."
  290.   ARGUMENT temp,1,0
  291.   GOTO GetMemberFirstName
  292. ENDIF
  293.  
  294. COPY eval( memNmVar ) = name
  295.  
  296.  
  297. ;xxxxxxxxxxxxxxxxxxxx GET TYPE: ADULT, CHILD, PET xxxxxxxxxxxxxxxxxxxx
  298. [GetMemberType]
  299. SETTEMP memTypVar = "memberType",nSel
  300. SETTEMP type = eval( memTypVar )
  301.  
  302. BACKSTOP
  303. PAGE
  304. NAME type
  305. WIZPIC wizpics\wizfm128.gif
  306. DESCRIPTION_RE "Is ",name," an adult, a child, or a pet?  The answer determines the type of questions that will be asked later about ",name," and choices for page style that are made available.\n\nThe main difference between designating a person adult or child is that for a child you are asked to enter their age and grade in school."
  307. TYPE RADIOBUTTONS
  308. ARGUMENT "&Adult (or child that's past high school)"@Adult@"wizpics\is_adult.gif"
  309. ARGUMENT "&Child (in grade 12 or lower)"@Child@"wizpics\is_child.gif"
  310. ARGUMENT "P&et (a non-person family member)"@Pet@"wizpics\yes_pet.gif"
  311.  
  312. SET eval( memTypVar ) = type
  313.  
  314.  
  315. ;xxxxxxxxxxxxxxxxxxxx GET GENDER xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  316. [GetMemberGender]
  317. IF type <> "Pet"
  318.   SETTEMP genderVar = "memberGender",nSel
  319.   SETTEMP gender = eval( genderVar )
  320.  
  321.   BACKSTOP
  322.   PAGE
  323.   WIZPIC wizpics\wizkids.gif
  324.   TYPE RADIOBUTTONS
  325.   NAME gender
  326.   DESCRIPTION_RE "Is ",name," a male or a female?  This answer determines how the page on the family Web site for ",name," is decorated."
  327.   DEFAULT male
  328.   ARGUMENT "&Male"@male@"wizpics\man.gif"
  329.   ARGUMENT "&Female"@female@"wizpics\woman.gif"
  330.  
  331.   SET eval( genderVar ) = gender
  332. ENDIF
  333.  
  334.  
  335. ;xxxxxxxxxxxxxx ASSIGN A DEFAULT PICTURE AND STYLING xxxxxxxxxxxxxxxxx
  336. [SetNewMemberDefaults]  ;     this only runs in add mode
  337. SETTEMP defPhotoVar = "memberPhoto",nSel
  338. SETTEMP memPgStVar = "memberStyling",nSel
  339.  
  340. SETTEMP temp = "clip_art\people\dog"
  341. IF type = "Adult"
  342.  IF gender = "male"
  343.     SET eval( defPhotoVar ) = modulepath( temp,"_pop.gif" )
  344.     SET eval( memPgStVar ) = "Adult Male"
  345.  ELSE
  346.     SET eval( defPhotoVar ) = modulepath( temp,"_mom.gif" )
  347.     SET eval( memPgStVar ) = "Adult Female"
  348.  ENDIF
  349. ELSE
  350.  IF type = "Child"
  351.    IF gender = "male"
  352.       SET eval( defPhotoVar ) = modulepath( temp,"_bro.gif" )
  353.       SET eval( memPgStVar ) = "Boy"
  354.    ELSE
  355.       SET eval( defPhotoVar ) = modulepath( temp,"_sis.gif" )
  356.       SET eval( memPgStVar ) = "Girl"
  357.    ENDIF
  358.  ELSE
  359.    SET eval( defPhotoVar ) = modulepath( "wizpics\pet.gif" )
  360.    SET eval( memPgStVar ) = "Pet"
  361.  ENDIF
  362. ENDIF
  363.  
  364. ;xxxxxxxxxxxxxxxxxxxxxx ASK FOR PHOTO PREFERENCE xxxxxxxxxxxxxxxxxxxxxxx
  365. [GetPhotoType]
  366. SETTEMP memberHasPhotoVar = "memberHasPhoto",nSel
  367. SETTEMP hasPhoto = eval( memberHasPhotoVar )
  368.  
  369. PAGE
  370. WIZPIC wizpics\wizphoto.gif
  371. DESCRIPTION_RE "How do you want to handle photographs of ",name,"?  If you have them now, you can pick one to use.  If you don't have one now, you can omit the photo or choose a standard (fun) picture to use until you get photos."
  372. TYPE RADIOBUTTONSWITHTEXT
  373. NAME hasPhoto
  374. ARGUMENT "&Yes.  I have a photo to use."@Yes@"\nChoose this to be able to select a real photograph of ",name," to include on the family Web site."
  375. ARGUMENT "&Use Standard Photo"@Standard@"\nThis permits you to select one of many standard pictures (cartoon caricatures) to represent ",name," on the Web site until you can provide a real photograph."
  376. ARGUMENT "&Omit.  Leave off the photo of ",name@No@"\nChoose this setting to leave the photograph off of the page for ",name,".\n\nYou can always add a photo later.\n\nThe wizard will provide a graphic containing ",name,"'s name."
  377.  
  378. SET eval( memberHasPhotoVar ) = hasPhoto
  379.  
  380.  
  381.  
  382. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  383. ;xxxxxxxxxxxxxx  INPUT FAMILY MEMBER DETAIL INFORMATION xxxxxxxxxxxxxxxx
  384. [InputMemberDetails]  ; prompts for:
  385. ; child grade/age; interests/fav things; pers templ; multipage info
  386.  
  387. IF type = "Child"
  388.   GOSUB GetChildInfo
  389. ENDIF
  390.  
  391. IF type <> "Pet"
  392.   ; prompt for interests and favorites etc
  393.   GOSUB GetInterestsEtc
  394.  
  395.   GOSUB AskSimpleOrMP
  396.   IF pageOrSite = "MP"
  397.     GOSUB GetMPInformation
  398.   ENDIF
  399. ELSE
  400. ;  type is Pet
  401.   GOSUB GetPetInfo
  402. ENDIF
  403.  
  404. ; prompt for templ style
  405. GOSUB GetPgStyle
  406. ; flag as having detail info input
  407. SET arrayelement( infoRetrievedArray nSel ) = YY
  408.  
  409. ;xxxxxxxxxxxxxxxxxxx  END OF GET MEMBER DETAILS xxxxxxxxxxxxxxxxx
  410.  
  411.  
  412.  
  413. ;xxxxxxxxxxxxxxxxxxxxxx  GET CHILD AGE & GRADE xxxxxxxxxxxxxxxxxx
  414. [GetChildInfo]
  415. SETTEMP age = ""
  416.  
  417. BACKSTOP
  418. PAGE
  419. WIZPIC wizpics\wizkids.gif
  420. TYPE EDIT
  421. NAME age
  422. DESCRIPTION_RE "How old is ",name,"?  Type out the age as you want it to appear, using a number or words.\n\nFor example, you could type `Just turned 10' or `Will be 3 in September' or simply `8' or `Eight'."
  423. PROMPT &Child's Age:
  424.  
  425. SETTEMP ageVar = "memberAge",nSel
  426. SET eval( ageVar ) = age
  427.  
  428. SETTEMP grade = ""
  429.  
  430. BACKSTOP
  431. PAGE
  432. WIZPIC wizpics\wizkids.gif
  433. TYPE EDIT
  434. NAME grade
  435. DESCRIPTION_RE "What grade in school is ",name," in right now?  Spell out the answer like one of these examples: 'sixth', '6th', 'starts third grade in the fall' or 'starts preschool in two years'."
  436. PROMPT &Grade in School:
  437.  
  438. SETTEMP gradeVar = "memberGrade",nSel
  439. SET eval( gradeVar ) = grade
  440.  
  441.  
  442.  
  443. ;xxxxxxxxxxxxxxx INPUT INTERESTS, FAVORITE THINGS, ETC. xxxxxxxxxxxxxx
  444. [GetInterestsEtc]
  445.  
  446. SETTEMP interestsVar = "memberInterests",nSel
  447. SETTEMP interests = eval( interestsVar )
  448. SETTEMP favsVar = "memberFavs",nSel
  449. SETTEMP favs = eval( favsVar )
  450. SETTEMP hopesVar = "memberHopes",nSel
  451. SETTEMP hopes = eval( hopesVar )
  452.  
  453. SETTEMP temp = "detCap"
  454. SETTEMP detCap1Var = temp,"1",nSel
  455. SETTEMP detCap1 = eval( temp2 )
  456. SETTEMP detCap2Var = temp,"2",nSel
  457. SETTEMP detCap2 = eval( temp2 )
  458. SETTEMP detCap3Var = temp,"3",nSel
  459. SETTEMP detCap3 = eval( temp2 )
  460.  
  461.  ;set text strings for prompts and defaults
  462. GOSUB SetInterestPrmts
  463.  
  464. ;have var to indicate if choices were made  ET7
  465. ;if set, offer to edit existing or start again
  466.  
  467. BACKSTOP GetPType
  468. PAGE
  469. TYPE MULTIPLECOMBOS
  470. WIZPIC wizpics\wizcaptn.gif
  471. DESCRIPTION_RE "You can choose the information elements that appear on the personal page for ",name,".  Make choices from those below to determine what questions you will be asked to fill in.\n\nThe choices you make will be the titles of the items that appear on the page for ",name,", and will also govern the questions in the prompts that follow."
  472. COMBONAME detCap1
  473. COMBONAME detCap2
  474. COMBONAME detCap3
  475. COMBOPROMPT &First item (one liner):
  476. COMBOPROMPT &Second item (multiple lines):
  477. COMBOPROMPT &Third item (multiple lines):
  478. INCLUDEARGUMENTSFROM PersCap1
  479. INCLUDEARGUMENTSFROM PersCap2
  480. INCLUDEARGUMENTSFROM PersCap3
  481.  
  482. IF detCap1 = detCap2
  483.   MESSAGEBOX "You have item 1 and 2 set for the same values!  Please change one of them so they are not the same."
  484.   UNWIND GetPType
  485. ENDIF
  486.  
  487. SET eval( detCap1Var ) = detCap1
  488. SET eval( detCap2Var ) = detCap2
  489. SET eval( detCap3Var ) = detCap3
  490.  
  491. IF gender = "male"
  492.   SETTEMP gen_type = "he"
  493. ELSE
  494.   SETTEMP gen_type = "she"
  495. ENDIF
  496. SETTEMP pVar1 = "detP",detCap1
  497. SETTEMP pVar2 = "detP",detCap2
  498. SETTEMP pVar3 = "detP",detCap3
  499.  
  500. GOSUB SetDetPrompts
  501. SETTEMP temp = facts1,name,":  In the first box, ",eval( pVar1 ),"  In the second box, ",eval( pVar2 )
  502. SETTEMP temp2 = "In the third box, ",eval( pVar3 )
  503.  
  504. IF strlen( temp ) > 256 || strlen( temp2 ) > 150
  505.   SETTEMP temp = temp,"  ",temp2
  506. ELSE
  507.   SETTEMP temp = temp,"\n\n",temp2
  508. ENDIF
  509.  
  510. BACKSTOP
  511. PAGE
  512. WIZPIC wizpics\wizcaptn.gif
  513. TYPE EDITAND2MULTIS
  514. DESCRIPTION_RE temp
  515. CAPTIONS_RE
  516. ARGUMENT "&1. ",ppTxt1@interests
  517. ARGUMENT "&2. ",ppTxt2@favs
  518. ARGUMENT "&3. ",ppTxt3@hopes
  519.  
  520. SET eval( interestsVar ) = interests
  521. SET eval( favsVar ) = favs
  522. SET eval( hopesVar ) = hopes
  523.  
  524.  
  525.  
  526. [SetDetPrompts]
  527. SETTEMP ppVar1 = "pField",detCap1
  528. SETTEMP ppVar2 = "pField",detCap2
  529. SETTEMP ppVar3 = "pField",detCap3
  530. SETTEMP ppTxt1 = eval( ppVar1 )
  531. SETTEMP ppTxt2 = eval( ppVar2 )
  532. SETTEMP ppTxt3 = eval( ppVar3 )
  533.  
  534. [PersCap1]
  535. IGNORE
  536. ARGUMENT 0@pField1@1
  537. ARGUMENT 0@pField2@2
  538. ARGUMENT 0@pField3@3
  539. ARGUMENT 0@pField4@4
  540. ARGUMENT 0@pField5@5
  541. ARGUMENT 0@pField6@6
  542. ARGUMENT 0@pField7@7
  543. ARGUMENT 0@pField8@8
  544. ARGUMENT 0@pField10@10
  545. ARGUMENT 0@pField11@11
  546. ARGUMENT 0@pField12@12
  547. ARGUMENT 0@pField13@13
  548. ARGUMENT 0@pField19@19
  549. ARGUMENT 0@pField20@20
  550. ARGUMENT 0@pField21@21
  551.  
  552. [PersCap2]
  553. IGNORE
  554. ARGUMENT 1@pField8@8
  555. ARGUMENT 1@pField9@9
  556. ARGUMENT 1@pField10@10
  557. ARGUMENT 1@pField11@11
  558. ARGUMENT 1@pField19@19
  559. ARGUMENT 1@pField20@20
  560. ARGUMENT 1@pField21@21
  561. ARGUMENT 1@pField12@12
  562. ARGUMENT 1@pField13@13
  563. ARGUMENT 1@pField14@14
  564. ARGUMENT 1@pField15@15
  565. ARGUMENT 1@pField16@16
  566. ARGUMENT 1@pField17@17
  567. ARGUMENT 1@pField18@18
  568. ARGUMENT 1@pField3@3
  569. ARGUMENT 1@pField4@4
  570. ARGUMENT 1@pField6@6
  571. ARGUMENT 1@pField7@7
  572. ARGUMENT 1@pField5@5
  573.  
  574.  
  575. [PersCap3]
  576. IGNORE
  577. ARGUMENT 2@pField32@32
  578. ARGUMENT 2@pField33@33
  579. ARGUMENT 2@pField34@34
  580. ARGUMENT 2@pField14@14
  581. ARGUMENT 2@pField15@15
  582. ARGUMENT 2@pField16@16
  583. ARGUMENT 2@pField17@17
  584. ARGUMENT 2@pField12@12
  585. ARGUMENT 2@pField31@31
  586. ARGUMENT 2@pField13@13
  587. ARGUMENT 2@pField35@35
  588. ARGUMENT 2@pField36@36
  589. ARGUMENT 2@pField37@37
  590. ARGUMENT 2@pField38@38
  591. ARGUMENT 2@pField30@30
  592.  
  593.  
  594. ;xxxxxxxxxxxxxxxxx  ASK IF PERSON'S PAGES ARE SIMPLE OR NOT xxxxxxxxxxxxxxx
  595. [AskSimpleOrMP] ; get whether one page variety or website-in-a-website
  596. SETTEMP memMPVar = "memberSimple",nSel
  597. SETTEMP pageOrSite = eval( memMPVar )
  598.  
  599. IF pageOrSite = "MP"
  600.   SETTEMP suffix = "  ",name," presently has at least some of this information."
  601. ELSE
  602.   SETTEMP suffix = ""
  603. ENDIF
  604.  
  605. ;ET7  Non-temp cancel danger
  606. BACKSTOP
  607. PAGE
  608. TYPE RADIOBUTTONS
  609. WIZPIC wizpics\wizlayot.gif
  610. DESCRIPTION_RE "PERSONAL SITE\n",name," may have a single page or several pages linked together within the family Web site.  The multi-page section includes personal news and opinions, pastimes, interests, recommendations, and a gift wish list.  You can also attach a collection of photos, either of yourself or of something you like (pictures of a collection, for example).",suffix
  611. NAME pageOrSite
  612. ARGUMENT "&Single page for ",name,""@page
  613. ARGUMENT "&Multi-page personal site for ",name@MP
  614.  
  615. SET eval( memMPVar ) = pageOrSite
  616.  
  617.  
  618.  
  619. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  620. ;xxxxxxxxxxxxxxxxxxxxxxx EDIT PERSONAL SITE CONTENT xxxxxxxxxxxxxxxxxxxxxxxxxx
  621. [ChgMPInfo]
  622.  
  623. IF beenOnce <> 1
  624.   SETTEMP inpL2 = 1
  625.   GOSUB DeterminePersPages
  626. ENDIF
  627.  
  628. SETTEMP cplx_prompt = "You can add new personal site information for ",name," or change any of the information already there.  Simply choose an item from this list below.\n\nWhen you are finished with all the additions and changes, choose the last item (done) to save the changes."
  629. SETTEMP he_do = "\n\n",name," already has information in this section."
  630. SETTEMP he_dont = "\n\n",name," does not presently have information in this section."
  631. SETTEMP ccp1 = "PERSONAL FAVORITES\nChoose this item if you want a group of pages describing some of your personal favorites, such as places to eat, places to shop, and places to vacation."
  632. SETTEMP ccp2 = "ACTIVITIES and PASTIMES\nChoose this item for a group of pages describing your personal activities and pastimes."
  633. SETTEMP ccp3 = "NEWS and VIEWS\nChoose this item to have a group of pages that you can use to tell a story or to express your opinion on some subject.\n\nIt's your voice on the Net!"
  634. SETTEMP ccp4 = "MY OWN WISH LIST!\nHere's your chance to let everyone know what you would like in the way of gifts.  It's better than a letter to Santa, and it's directed to those who might want to get you a gift."
  635. SETTEMP ccp5 = "PHOTO COLLECTION\nIf you have some photos to share, here's a place to do it.\n\nThey could be photos of you, or something you did (a camping trip...), or something you have (your model cars)."
  636.  
  637. IF hasMPFavs = YY
  638.   SETTEMP ccp1 = ccp1,he_do
  639. ELSE
  640.   SETTEMP ccp1 = ccp1,he_dont
  641. ENDIF
  642.  
  643. IF hasMPActs = YY
  644.   SETTEMP ccp2 = ccp2,he_do
  645. ELSE
  646.   SETTEMP ccp2 = ccp2,he_dont
  647. ENDIF
  648.  
  649. IF hasMPNews = YY
  650.   SETTEMP ccp3 = ccp3,he_do
  651. ELSE
  652.   SETTEMP ccp3 = ccp3,he_dont
  653. ENDIF
  654.  
  655. IF hasMPGift = YY
  656.   SETTEMP ccp4 = ccp4,he_do
  657. ELSE
  658.   SETTEMP ccp4 = ccp4,he_dont
  659. ENDIF
  660.  
  661. IF hasMPPho = YY
  662.   SETTEMP ccp5 = ccp5,he_do
  663. ELSE
  664.   SETTEMP ccp5 = ccp5,he_dont
  665. ENDIF
  666.  
  667. BACKSTOP
  668. PAGE
  669. WIZPIC wizpics\wizchoz3.gif
  670. TYPE RADIOBUTTONSWITHTEXT
  671. NAME inpL2
  672. DESCRIPTION_RE cplx_prompt
  673. ARGUMENT "Personal &Favorites of ",name@1@ccp1
  674. ARGUMENT "My &Activities and Pastimes"@2@ccp2
  675. ARGUMENT "News and &Views"@3@ccp3
  676. ARGUMENT "My Own &Gift `Wish-list'"@4@ccp4
  677. ARGUMENT "My Photo &Collection"@5@ccp5
  678. ARGUMENT "&Done with changes."@6@"DONE WITH CHANGES\nChoose this item when you are finished making changes to this information.\n\nPress the Next button to have your changes saved."
  679.  
  680. SETTEMP sectionCompleted = 0
  681.  
  682. IF inpL2 <> 6
  683.   IF inpL2 = 1
  684.     GOSUB GetFavoritesPersonalPage
  685.     IF sectionCompleted = 1
  686.       SETTEMP hasMPFavs = YY
  687.       SETTEMP doBuild = YY
  688.     ENDIF
  689.   ENDIF
  690.  
  691.   IF inpL2 = 2
  692.     GOSUB GetActivitiesPersonalPage
  693.     IF sectionCompleted = 1
  694.       SETTEMP hasMPActs = YY
  695.       SETTEMP doBuild = YY
  696.     ENDIF
  697.   ENDIF
  698.  
  699.   IF inpL2 = 3
  700.     GOSUB GetNewsAndViewsPersonalPage
  701.     IF sectionCompleted = 1
  702.       SETTEMP hasMPNews = YY
  703.       SETTEMP doBuild = YY
  704.     ENDIF
  705.   ENDIF
  706.  
  707.   IF inpL2 = 4
  708.     GOSUB GetGiftWishListPersonalPage
  709.     IF sectionCompleted = 1
  710.       SETTEMP hasMPGift = YY
  711.       SETTEMP doBuild = YY
  712.     ENDIF
  713.   ENDIF
  714.  
  715.   IF inpL2 = 5
  716.     GOSUB GetPhotoCollectionPersonalPage
  717.     IF sectionCompleted = 1
  718.       SETTEMP hasMPPho = YY
  719.       SETTEMP doBuild = YY
  720.     ENDIF
  721.   ENDIF
  722.  
  723.   SETTEMP inpL2 = 6
  724.   SETTEMP beenOnce = 1
  725.   GOTO ChgMPInfo    ;loop for another
  726. ENDIF
  727. SETTEMP beenOnce = 0
  728.  
  729.  
  730.  
  731. ;xxxxxxxxxxxxxxxxxx PROMPT FOR "PERSONAL SITE" PAGE CONTENT xxxxxxxxxxxxxxx
  732. [GetMPInformation]
  733.  
  734. BACKSTOP NextPersonalPage
  735.  
  736. GOSUB DeterminePersPages    ;set variables to show what already exists
  737.  
  738. PAGE
  739. WIZPIC wizpics\wizpikan.gif
  740. TYPE CHECKBOXES
  741. DESCRIPTION_RE name,", choose the categories that you would like to have in your personal Web site from those listed below."
  742. ARGUMENT "Personal &Favorites"@hasMPFavs@Yes,No@
  743. ARGUMENT "My &Activities and Pastimes"@hasMPActs@Yes,No@
  744. ARGUMENT "News and &Views"@hasMPNews@Yes,No@
  745. ARGUMENT "My Own &Gift `Wish-list'"@hasMPGift@Yes,No@
  746. ARGUMENT "My Photo &Collection"@hasMPPho@Yes,No@
  747.  
  748. ;they changed their mind
  749. IF hasMPFavs = NN && hasMPActs = NN && hasMPNews = NN && hasMPGift = NN && hasMPPho = NN
  750.    SETTEMP pageOrSite = "page"
  751. ENDIF
  752.  
  753. IF hasMPFavs = YY
  754.  SETTEMP sectionCompleted = 0
  755.  GOSUB GetFavoritesPersonalPage
  756.  IF sectionCompleted = 0
  757.    SETTEMP hasMPFavs = NN
  758.  ENDIF
  759. ENDIF
  760.  
  761. IF hasMPActs = YY
  762.  SETTEMP sectionCompleted = 0
  763.  GOSUB GetActivitiesPersonalPage
  764.  IF sectionCompleted = 0
  765.    SETTEMP hasMPActs = NN
  766.  ENDIF
  767. ENDIF
  768.  
  769. IF hasMPNews = YY
  770.  SETTEMP sectionCompleted = 0
  771.  GOSUB GetNewsAndViewsPersonalPage
  772.  IF sectionCompleted = 0
  773.    SETTEMP hasMPNews = NN
  774.  ENDIF
  775. ENDIF
  776.  
  777. IF hasMPGift = YY
  778.  SETTEMP sectionCompleted = 0
  779.  GOSUB GetGiftWishListPersonalPage
  780.  IF sectionCompleted = 0
  781.    SETTEMP hasMPGift = NN
  782.  ENDIF
  783. ENDIF
  784.  
  785. IF hasMPPho = YY
  786.  SETTEMP sectionCompleted = 0
  787.  GOSUB GetPhotoCollectionPersonalPage
  788.  IF sectionCompleted = 0
  789.    SETTEMP hasMPPho = NN
  790.  ENDIF
  791. ENDIF
  792.  
  793.  
  794.  
  795. ;xxxxxxxxxxxxxxxxxxxx GET PET INFO INPUT xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  796. [GetPetInfo]
  797. SETTEMP petDescVar = "memberPetSDesc",nSel
  798. SETTEMP petDesc = eval( petDescVar )
  799.  
  800. SETTEMP old_pet = name
  801.  
  802. BACKSTOP
  803. PAGE
  804. WIZPIC wizpics\wizpet.gif
  805. TYPE MULTIANDEDIT
  806. NAME petname
  807. DESCRIPTION Verify the spelling for the name of your pet and provide any other information you would like to share about your pet.  If you have two or more, you can include their names and other information for them here together, or make a `family member' page for each of them.
  808. ARGUMENT P&et's Name:@name
  809. ARGUMENT &Information about your pet:@petDesc
  810. IF old_pet <> name
  811.   SET eval( memNmVar) = name
  812. ENDIF
  813.  
  814. SET eval( petDescVar ) = petDesc
  815.  
  816.  
  817.  
  818. ;xxxxxxxxxxxxxxxxx INPUT PERSONAL FAVORITES PAGES xxxxxxxxxxxxxxxxxxxxxxx
  819. [GetFavoritesPersonalPage]
  820. SETTEMP favoritesVarRoot = "member",nSel
  821.  
  822. SETTEMP pageMPFavsVar = "pageMPFavs",nSel
  823. SETTEMP temp1 = eval( pageMPFavsVar )
  824. SETTEMP FavSectnExists = istopic( temp1 )
  825. SETTEMP pers_fam_mode = "personal"
  826.  
  827. IF FavSectnExists = NN
  828.   GOSUB AddToFavorites
  829. ELSE
  830.   GOSUB ReplaceFavorites
  831. ENDIF
  832.  
  833.  
  834.  
  835. ;xxxxxxxxxxxxxxxxx INPUT PERSONAL ACTIVITIES PAGES xxxxxxxxxxxxxxxxxxxxxxx
  836. [GetActivitiesPersonalPage]
  837. SETTEMP pastimeVarRoot = "member",nSel
  838.  
  839. SETTEMP pastimePageVar = pageMPActsVar
  840. SETTEMP pastimeLinkagePage = eval( pastimePageVar )
  841. SETTEMP PstmSectnExist = istopic( pastimeLinkagePage )
  842.  
  843. SETTEMP pers_fam_mode = "personal"
  844.  
  845. IF PstmSectnExist = NN    ; fetch first time info
  846.   GOSUB AddToPastimes
  847. ELSE
  848.   GOSUB ReplacePastimeOrActivity
  849. ENDIF
  850.  
  851.  
  852.  
  853. ;xxxxxxxxxxxxxxxxx INPUT PERSONAL NEWS/VIEWS PAGES xxxxxxxxxxxxxxxxxxxxxxx
  854. [GetNewsAndViewsPersonalPage]
  855. SETTEMP notionVarRoot = "member",nSel
  856. SETTEMP pers_fam_mode = "personal"
  857.  
  858. SETTEMP pageMPNewsVar = "pageMPNews",nSel
  859. SETTEMP temp1 = eval( pageMPNewsVar )
  860. SETTEMP NotionSectnExists = istopic( temp1 )
  861.  
  862. IF NotionSectnExists = NN
  863.   GOSUB AddToNotions    ;get 3 personal notions
  864. ELSE
  865.   GOSUB ReplaceANotion
  866. ENDIF
  867.  
  868.  
  869.  
  870. ;xxxxxxxxxxxxxxxxxxx INPUT PERSONAL GIFT WISH LIST DATA xxxxxxxxxxxxxxxx
  871. [GetGiftWishListPersonalPage]
  872.  
  873. SETTEMP littlegiftsVar = "member",nSel,"LittleGifts"
  874. SETTEMP little_gifts = eval( littlegiftsVar )
  875.  
  876. SETTEMP prefsVar = "member",nSel,"Prefs"
  877. SETTEMP prefs_sizes = eval( prefsVar )
  878.  
  879. BACKSTOP
  880. PAGE
  881. TYPE MULTIANDEDIT
  882. WIZPIC wizpics\wizwish.gif
  883. DESCRIPTION Little gifts you would enjoy might be a favorite cologne, specific jewelry, or accessory items such as a belt or scarf.  You could suggest gift certificates.  Mention the theater you frequent, a restaurant you like, or stores you like to shop.\n\nProvide your apparel sizes and preferences for those who may wish to buy clothing items.  If you especially like plaids, or cotton items, mention it here.
  884. ARGUMENT &Little things I enjoy:@little_gifts
  885. ARGUMENT &Apparel preferences and sizes:@prefs_sizes
  886.  
  887. SET eval( littlegiftsVar ) = little_gifts
  888. SET eval( prefsVar ) = prefs_sizes
  889.  
  890.  
  891. SETTEMP dislikesVar = "member",nSel,"Dislikes"
  892. SETTEMP dislikes = eval( dislikesVar )
  893. SETTEMP dreamgiftsVar = "member",nSel,"DreamGifts"
  894. SETTEMP dream_gifts = eval( dreamgiftsVar )
  895.  
  896. BACKSTOP
  897. PAGE
  898. TYPE MULTIANDEDIT
  899. WIZPIC wizpics\wizwish.gif
  900. DESCRIPTION Along with your preferences, it helps a gift-buyer to know your dislikes too!  If you just don't like stripes, or pink, or polka dots, this is the place to mention it.\n\nThen list gifts you would most like to receive that aren't little things?  Perhaps grandad would buy you that new red convertible if he knew how much you wanted it! Or maybe you can target something extraordinary like a new TV set or stereo!
  901. ARGUMENT &Dislikes:@dislikes
  902. ARGUMENT Dream &gifts:@dream_gifts
  903.  
  904. SET eval( dislikesVar ) = dislikes
  905. SET eval( dreamgiftsVar ) = dream_gifts
  906.  
  907. SETTEMP sectionCompleted = 1
  908.  
  909.  
  910.  
  911. ;xxxxxxxxxxxxxxxxxxxxx INPUT PERSONAL PHOTO COLLECTION xxxxxxxxxxxxxxxxxxx
  912. [GetPhotoCollectionPersonalPage]
  913. SETTEMP nPicturesVar = "nMember",nSel,Pictures"
  914. SETTEMP pictureNameRoot = "member",nSel,"Pictures"
  915. SETTEMP pictureCaptionRoot = "member",nSel,"PixCaptions"
  916. SETTEMP styleVar = "member",nSel,"AlbumStyle"
  917. GOSUB GetPhotoCollectionData
  918.  
  919.  
  920.  
  921. ;xxxxxxxxxxxxxxxxxxxx INPUT PERSONAL STYLING CHOICES xxxxxxxxxxxxxxxxxxxx
  922. [GetPgStyle]
  923. SETTEMP memTypVar = "memberType",nSel
  924. SETTEMP type = eval( memTypVar )
  925.  
  926. SETTEMP memberGenderVar = "memberGender",nSel
  927. SETTEMP gender = eval( memberGenderVar )
  928.  
  929. SETTEMP memPgStVar = "memberStyling",nSel
  930. SETTEMP pers_template = eval( memPgStVar )
  931.  
  932. SETTEMP field5 = pers_template ;for inp
  933.  
  934. BACKSTOP ;these choice pages in membertx.dat
  935. IF type = "Adult"
  936.   IF gender = "male"
  937.     GOSUB ManPage
  938.   ELSE
  939.     GOSUB WomanPage
  940.   ENDIF
  941. ELSE
  942.   IF type = "Child"
  943.     IF gender = "male"
  944.        GOSUB BoyPage
  945.     ELSE
  946.        GOSUB GirlPage
  947.     ENDIF
  948.   ELSE
  949.     PAGE
  950.     WIZPIC wizpics\wizpet.gif
  951.     NAME field5
  952.     TYPE RADIOBUTTONS
  953.     DESCRIPTION Your pet's home page can be decorated according to the type of animal he or she is.  Please select one of the choices below for a specific decor for your pet's page.
  954.     DEFAULT Pet
  955.     ARGUMENT "&Cat"@Pet - Cat@"clip_art\animals\cat.gif"
  956.     ARGUMENT "&Dog"@Pet - Dog@"clip_art\animals\dog3.gif"
  957.     ARGUMENT "&Bird"@Pet - Bird@"clip_art\animals\bird_2.gif"
  958.     ARGUMENT "&Fish"@Pet - Fish@"clip_art\designer\fish.gif"
  959.     ARGUMENT "&Turtle"@Pet - Turtle@"clip_art\animals\turtles.gif"
  960.     ARGUMENT "&Other (none of the above)"@Pet@"wizpics\pet.gif"
  961.   ENDIF
  962. ENDIF
  963.  
  964. SETTEMP pers_template = field5
  965. SET eval( memPgStVar ) = pers_template
  966.  
  967.  
  968.  
  969.  
  970. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  971. ;xxxxxxxxxxxxxxxxxxxxx  BUILD ACTUAL PAGES   xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  972. ;xxxxxxxCHILD PAGExxxxxxxxxx
  973. [BuildChildPage]
  974. GOSUB SetDetPrompts
  975.  
  976. SETTEMP temp = ""
  977. SETTEMP temp2 = ""
  978.  
  979. IF age <> ""
  980.   SETTEMP temp = "Age: ",age
  981.   IF grade <> ""
  982.     SETTEMP temp2 = "Grade: ",grade
  983.   ENDIF
  984. ELSE ;age is blank
  985.   IF grade <> ""
  986.     SETTEMP temp = "Grade: ",grade
  987.   ENDIF
  988. ENDIF
  989.  
  990. BUILDTOPIC pageName
  991. REPLACE eval( pageVar )
  992. pers_template        ; templ
  993. none               ; backdrop
  994. 1                  ; level
  995. 2                  ; links
  996. pageMeetFamily     ; link for 1st button
  997. pageContents     ; link for 2nd button
  998. 11                  ; # fields
  999. name
  1000. familyLastName
  1001. photo
  1002. interests
  1003. favs
  1004. hopes
  1005. temp
  1006. temp2
  1007. ppTxt1
  1008. ppTxt2
  1009. ppTxt3
  1010.  
  1011. SET eval( pageVar ) = topicfromsymbolic( pageName )
  1012.  
  1013.  
  1014. ;xxxxxxxADULT'S PAGExxxxxxxxxx
  1015. [BuildAdultPage]
  1016. GOSUB SetDetPrompts
  1017.  
  1018. BUILDTOPIC pageName
  1019. REPLACE eval( pageVar )
  1020. pers_template        ; templ
  1021. none               ; backdrop
  1022. 1                  ; level
  1023. 2                  ; links
  1024. pageMeetFamily     ; link for 1st button
  1025. pageContents     ; link for 2nd button
  1026. 9                  ; # fields
  1027. name
  1028. familyLastName
  1029. photo
  1030. interests
  1031. favs
  1032. hopes
  1033. ppTxt1
  1034. ppTxt2
  1035. ppTxt3
  1036.  
  1037. SET eval( pageVar ) = topicfromsymbolic( pageName )
  1038.  
  1039.  
  1040. ;xxxxxxxPET'S PAGExxxxxxxxxx
  1041. [BuildPetPage]
  1042. BUILDTOPIC pageName
  1043. REPLACE eval( pageVar )
  1044. pers_template        ; templ
  1045. none            ; backdrop
  1046. 1               ; level
  1047. 2               ; links
  1048. pageMeetFamily  ; link for 1st topic
  1049. pageContents    ; link for 2nd topic
  1050. 3               ; # fields
  1051. name
  1052. photo
  1053. petDesc
  1054.  
  1055. SET eval( pageVar ) = topicfromsymbolic( pageName )
  1056.  
  1057.  
  1058.  
  1059. ;xxxxxxxxxxxxxxx BUILD THE MEET THE FAMILY PAGE xxxxxxxxxxxxxxxxxxxxx
  1060. [MakeMeetFamilyPage]
  1061. SETPARENTTOPIC pageContents
  1062.  
  1063. COPY meetFamPhoto1 = memberPhoto1
  1064. COPY meetFamPhoto2 = memberPhoto2
  1065. COPY meetFamPhoto3 = memberPhoto3
  1066. COPY meetFamPhoto4 = memberPhoto4
  1067. COPY meetFamPhoto5 = memberPhoto5
  1068.  
  1069. SETTYPE meetFamPhoto1 = picture
  1070. SETTYPE meetFamPhoto2 = picture
  1071. SETTYPE meetFamPhoto3 = picture
  1072. SETTYPE meetFamPhoto4 = picture
  1073. SETTYPE meetFamPhoto5 = picture
  1074.  
  1075. SETSCALE meetFamPhoto1 = 80 60
  1076. SETSCALE meetFamPhoto2 = 80 60
  1077. SETSCALE meetFamPhoto3 = 80 60
  1078. SETSCALE meetFamPhoto4 = 80 60
  1079. SETSCALE meetFamPhoto5 = 80 60
  1080.  
  1081. IF nMembers > 5
  1082.   COPY meetFamPhoto6 = memberPhoto6
  1083.   COPY meetFamPhoto7 = memberPhoto7
  1084.   COPY meetFamPhoto8 = memberPhoto8
  1085.   COPY meetFamPhoto9 = memberPhoto9
  1086.   COPY meetFamPhoto10 = memberPhoto10
  1087.   COPY meetFamPhoto11 = memberPhoto11
  1088.  
  1089.   SETTYPE meetFamPhoto6 = picture
  1090.   SETTYPE meetFamPhoto7 = picture
  1091.   SETTYPE meetFamPhoto8 = picture
  1092.   SETTYPE meetFamPhoto9 = picture
  1093.   SETTYPE meetFamPhoto10 = picture
  1094.   SETTYPE meetFamPhoto11 = picture
  1095.  
  1096.   SETSCALE meetFamPhoto6 = 80 60
  1097.   SETSCALE meetFamPhoto7 = 80 60
  1098.   SETSCALE meetFamPhoto8 = 80 60
  1099.   SETSCALE meetFamPhoto9 = 80 60
  1100.   SETSCALE meetFamPhoto10 = 80 60
  1101.   SETSCALE meetFamPhoto11 = 80 60
  1102. ENDIF
  1103.  
  1104. SETTEMP meetFamilyTemplate = "Members",nMembers
  1105. SETTEMP temp_placard = mf_pix
  1106. SETTYPE temp_placard = picture
  1107.  
  1108. SETTEMP pageName = "##MeetFamily",nMembers
  1109. BUILDTOPIC pageName
  1110. REPLACE pageMeetFamily
  1111. meetFamilyTemplate
  1112. none
  1113. 1
  1114. 11                   ; # links
  1115. memberPage1           ; link for topic 1
  1116. memberPage2           ; link for topic 2
  1117. memberPage3          ; link for topic 3
  1118. memberPage4         ; link for topic 4
  1119. memberPage5          ; link for topic 5
  1120. memberPage6          ; link for topic 6
  1121. memberPage7          ; link for topic 6
  1122. memberPage8          ; link for topic 6
  1123. memberPage9          ; link for topic 6
  1124. memberPage10         ; link for topic 6
  1125. memberPage11         ; link for topic 6
  1126. 24                  ; # fields
  1127. "Meet the ",familyLastName," Family"
  1128. temp_placard
  1129. memberName1
  1130. meetFamPhoto1
  1131. memberName2
  1132. meetFamPhoto2
  1133. memberName3
  1134. meetFamPhoto3
  1135. memberName4
  1136. meetFamPhoto4
  1137. memberName5
  1138. meetFamPhoto5
  1139. memberName6
  1140. meetFamPhoto6
  1141. memberName7
  1142. meetFamPhoto7
  1143. memberName8
  1144. meetFamPhoto8
  1145. memberName9
  1146. meetFamPhoto9
  1147. memberName10
  1148. meetFamPhoto10
  1149. memberName11
  1150. meetFamPhoto11
  1151.  
  1152. SET pageMeetFamily = topicfromsymbolic( pageName )
  1153.  
  1154.  
  1155.  
  1156.  
  1157. ;xxxxxxxxxxxxxxxxx BUILD THE EXTRA PERSONAL PAGES xxxxxxxxxxxxxxxxxxxxxxx
  1158. [BuildPersonalPages]
  1159. SETTEMP memberLinkPageVar = "memberLinkagePage",nSel
  1160. SETTEMP memberLinkPage = eval( memberLinkPageVar )
  1161. SETTEMP pageName = "##PersonalLinkagePage",nSel
  1162.  
  1163. SETTEMP cLp1 = ""
  1164. SETTEMP cLp2 = ""
  1165. SETTEMP cLp3 = ""
  1166. SETTEMP cLp4 = ""
  1167. SETTEMP cLp5 = ""
  1168.  
  1169. IF hasMPFavs = YY
  1170.   SETTEMP cLp1 = pfav_pix
  1171. ENDIF
  1172.  
  1173. IF hasMPActs = YY
  1174.   SETTEMP cLp2 = pas_pix
  1175. ENDIF
  1176.  
  1177. IF hasMPNews = YY
  1178.   SETTEMP cLp3 = pnot_pix
  1179. ENDIF
  1180.  
  1181. IF hasMPGift = YY
  1182.   SETTEMP cLp4 = "clip_art\signs\wishlist.gif"
  1183. ENDIF
  1184.  
  1185. IF hasMPPho = YY
  1186.   SETTEMP cLp5 = pix_pix
  1187. ENDIF
  1188.  
  1189. SETTEMP cField1 = cLp1
  1190. SETTEMP cField2 = cLp2
  1191. SETTEMP cField3 = cLp3
  1192. SETTEMP cField4 = cLp4
  1193. SETTEMP cField5 = cLp5
  1194. SETTEMP cField6 = "" ; make sure unused slots are cleared out
  1195.  
  1196. SETTEMP eField1 = pageMPFavsVar
  1197. SETTEMP eField2 = pageMPActsVar
  1198. SETTEMP eField3 = pageMPNewsVar
  1199. SETTEMP eField4 = pageMPGiftVar
  1200. SETTEMP eField5 = pageMPPhoVar
  1201. SETTEMP eField6 = "" ; make sure unused slots are cleared out
  1202.  
  1203. SETTEMP fieldRootName = "cField"
  1204. SETTEMP reflectRootName = "eField"
  1205. SETTEMP nTotalFields = 6
  1206. GOSUB CompactFields    ;squeeze out the empties
  1207.  
  1208. SETTEMP memberPageVar = "memberPage",nSel
  1209. SETPARENTTOPIC eval( memberPageVar )
  1210.  
  1211. SETTYPE cField1 = picture
  1212. SETTYPE cField2 = picture
  1213. SETTYPE cField3 = picture
  1214. SETTYPE cField4 = picture
  1215. SETTYPE cField5 = picture
  1216.  
  1217.  
  1218. BUILDTOPIC pageName    ;xxxxxxxxxxxxxxxxLINKAGE PAGExxxxxxx
  1219. REPLACE memberLinkPage
  1220. "Personal Link Page"
  1221. none
  1222. 1
  1223. 5
  1224. eval( eField1 )
  1225. eval( eField2 )
  1226. eval( eField3 )
  1227. eval( eField4 )
  1228. eval( eField5 )
  1229. 10
  1230. Personal Pages of ",name," ",familyLastName
  1231. name
  1232. familyLastName
  1233. photo
  1234. name," ",familyLastName
  1235. cField1
  1236. cField2
  1237. cField3
  1238. cField4
  1239. cField5
  1240.  
  1241. SET eval( memberLinkPageVar ) = topicfromsymbolic( pageName )
  1242. SETTEMP memberLinkPage = topicfromsymbolic( pageName )
  1243.  
  1244. IF hasMPFavs = YY
  1245.   SETTEMP pageNameVar = pageMPFavsVar
  1246.   GOSUB BuildPersFavoritesPages
  1247. ENDIF
  1248.  
  1249. IF hasMPActs = YY
  1250.   SETPARENTTOPIC memberLinkPage
  1251.   SETTEMP pageNameVar = pageMPActsVar
  1252.   SETTEMP caption = "Pastimes of ",name
  1253.   SETTEMP pastimeVarRoot = "member",nSel
  1254.  
  1255.   GOSUB BuildPastimesPagesAnon
  1256. ENDIF
  1257.  
  1258. IF hasMPNews = YY
  1259.   SETTEMP pageNameVar = pageMPNewsVar
  1260.   GOSUB BuildPersNotionPages
  1261. ENDIF
  1262.  
  1263. IF hasMPPho = YY
  1264.   SETTEMP parentTopic = memberLinkPage
  1265.   SETTEMP albumTopic = pageMPPhoVar
  1266.   SETTEMP nPicturesVar = "nMember",nSel,Pictures"
  1267.   SETTEMP nPictures = eval( nPicturesVar )
  1268.   SETTEMP pictureNameRoot = "member",nSel,"Pictures"
  1269.   SETTEMP pictureCaptionRoot = "member",nSel,"PixCaptions"
  1270.   SETTEMP albumStyleVar = "member",nSel,"AlbumStyle"
  1271.   SETTEMP albumStyle = eval( albumStyleVar )
  1272.   SETTEMP photoPageNameVar = "pageMember",nSel,"Photo"
  1273.   SETTEMP photo_mode = "personal"
  1274.   GOSUB MakePhotoAlbumPages
  1275. ENDIF
  1276.  
  1277. IF hasMPGift = YY
  1278.   SETTEMP memR = "member",nSel    ;member root
  1279.   SETTEMP littlegiftsVar = memR,"LittleGifts"
  1280.   SETTEMP little_gifts = eval( littlegiftsVar )
  1281.  
  1282.   SETTEMP prefsVar = memR,"Prefs"
  1283.   SETTEMP prefs_sizes = eval( prefsVar )
  1284.  
  1285.   SETTEMP dislikesVar = memR,"Dislikes"
  1286.   SETTEMP dislikes = eval( dislikesVar )
  1287.  
  1288.   SETTEMP dreamgiftsVar = memR,"DreamGifts"
  1289.   SETTEMP dream_gifts = eval( dreamgiftsVar )
  1290.  
  1291.   SETPARENTTOPIC memberLinkPage
  1292.   SETTEMP mem_name = name," ",familyLastName
  1293.   SETTEMP caption = "Gift `Wish List' of ",mem_name
  1294.   SETTEMP pageName = "##PersGiftList",memR
  1295.   SETTEMP pageNameVar = pageMPGiftVar
  1296.  
  1297.   ; build the gift wish list page
  1298.   BUILDTOPIC pageName
  1299.   REPLACE eval( pageNameVar )
  1300.   "Gift Wish List"
  1301.   none         ; backdrop
  1302.   1           ; level
  1303.   0            ; links
  1304.   6            ; # of fields
  1305.   caption
  1306.   little_gifts
  1307.   prefs_sizes
  1308.   dream_gifts
  1309.   dislikes
  1310.   mem_name
  1311.  
  1312.   SET eval( pageNameVar ) = topicfromsymbolic( pageName )
  1313. ENDIF
  1314.  
  1315.  
  1316.  
  1317. ;xxxxxxxxxxxxxxxxxxxxx  BUILD ALL FAMILY MEMBER PAGES xxxxxxxxxxxxxxxxxxxxx
  1318. [BuildAllMembersOfFamily]
  1319. SETTEMP next = 1    ;setup loop
  1320. GOTO BuildNextMemberOfFamily
  1321.  
  1322. [BuildNextMemberOfFamily]      ;build all member pages in a loop
  1323. IF next <= nMembers
  1324.   SETPARENTTOPIC pageMeetFamily
  1325.  
  1326.   SETTEMP nSel = next
  1327.   GOSUB BuildNthFamilyMember    ;build a member page
  1328.  
  1329.   SETTEMP next = add( next 1 )
  1330.   GOTO BuildNextMemberOfFamily    ;loop on
  1331. ENDIF
  1332.  
  1333.  
  1334. ;xxxxxxxxxxxxxxxxxxxxxxx BUILD MEMBER PAGES xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  1335. [BuildMemberPages]
  1336. IF istopic( pageMeetFamily ) = NN
  1337.   GOSUB MakeMeetFamilyPage
  1338. ENDIF
  1339.  
  1340. GOSUB BuildNthFamilyMember
  1341. GOSUB MakeMeetFamilyPage
  1342.  
  1343. IF alreadyExistsMeetFamilySection = NN
  1344.  GOSUB BuildHomePage    ; rebuild the homepage
  1345. ENDIF
  1346.  
  1347. BUILDLINKS
  1348.  
  1349.  
  1350. ;xxxxxxxxxxxxxxxxx MAKE A TOPIC FOR A FAMILY MEMBER PAGE xxxxxxxxxxxxxxxxx
  1351. [BuildNthFamilyMember]
  1352. GOSUB SetMemberTempVars      ;assign all the field pointers
  1353.  
  1354. SETSCALE photo = 180 256
  1355. SETTYPE photo = picture
  1356.  
  1357. SETPARENTTOPIC pageMeetFamily
  1358.  
  1359. IF type = "Adult"
  1360.   GOSUB BuildAdultPage
  1361. ELSE
  1362.   IF type = "Child"
  1363.     GOSUB BuildChildPage
  1364.   ELSE    ;type = "Pet"
  1365.     GOSUB BuildPetPage
  1366.   ENDIF
  1367. ENDIF
  1368.  
  1369. BUILDLINKS
  1370.  
  1371. IF pageOrSite = "MP"
  1372.   GOSUB BuildPersonalPages       ;build extra personal pages
  1373.  
  1374.   ; now link basic page to the personal pages using a templ.
  1375.   BUILDLINKS
  1376.  
  1377.   SETTEMP pageVar = "memberPage",nSel
  1378.   SETTEMP topic = eval( pageVar )
  1379.   SETTEMP ttt = istopic( topic )
  1380.  
  1381.   SETTEMP temp = "wizpics\perspage.gif"
  1382.   SETTYPE temp = picture
  1383.   OPENTOPIC topic                       ; open topic
  1384.   CARET 1                               ; move caret to end of topic
  1385.   RUNTEMPLATE "Link to Personal Pages"  ;run templ
  1386.   FIELD temp
  1387.   LINK memberLinkPage
  1388.  
  1389.   SETTYPE temp = normal
  1390.   CLOSETOPICS 1
  1391.   CLOSETOPICS 0
  1392. ELSE
  1393.   IF deletePages = 1
  1394.     GOSUB KillOldPages
  1395.     BUILDLINKS
  1396.   ENDIF
  1397. ENDIF
  1398.  
  1399.  
  1400.  
  1401. [PickAFamilyMember]
  1402. SETTEMP nSel = "1"
  1403.  
  1404. IF nMembers > 1
  1405.    SETTYPE memberPhoto1 = normal
  1406.    SETTYPE memberPhoto2 = normal
  1407.    SETTYPE memberPhoto3 = normal
  1408.    SETTYPE memberPhoto4 = normal
  1409.    SETTYPE memberPhoto5 = normal
  1410.    SETTYPE memberPhoto6 = normal
  1411.    SETTYPE memberPhoto7 = normal
  1412.    SETTYPE memberPhoto8 = normal
  1413.    SETTYPE memberPhoto9 = normal
  1414.    SETTYPE memberPhoto10 = normal
  1415.    SETTYPE memberPhoto11 = normal
  1416.  
  1417.    BACKSTOP
  1418.    PAGE
  1419.    TYPE LIST
  1420.    WIZPIC wizpics\wizfm128.gif 
  1421.    NAME nSel
  1422.    DESCRIPTION_RE caption
  1423.    ARGUMENT memberName1@1@memberPhoto1
  1424.    ARGUMENT memberName2@2@memberPhoto2
  1425.    ARGUMENT memberName3@3@memberPhoto3
  1426.    ARGUMENT memberName4@4@memberPhoto4
  1427.    ARGUMENT memberName5@5@memberPhoto5
  1428.    ARGUMENT memberName6@6@memberPhoto6
  1429.    ARGUMENT memberName7@7@memberPhoto7
  1430.    ARGUMENT memberName8@8@memberPhoto8
  1431.    ARGUMENT memberName9@9@memberPhoto9
  1432.    ARGUMENT memberName10@10@memberPhoto10
  1433.    ARGUMENT memberName11@11@memberPhoto11
  1434. ENDIF
  1435.  
  1436.  
  1437.  
  1438. ;xxxxxxxxxxx DETERMINE IF ALL MEMBERS COMPLETED xxxxxxxxxxx
  1439. [AllFamilyMembersEntered] ; returns temp = YY if all info retrieved
  1440. SETTEMP temp = YY
  1441. SETTEMP nTemp = 1
  1442. GOSUB AllFamilyMembersEnteredAux
  1443.  
  1444. [AllFamilyMembersEnteredAux]
  1445. IF arrayelement( infoRetrievedArray nTemp ) <> YY
  1446.   SETTEMP temp = NN
  1447. ELSE
  1448.   SETTEMP nTemp = add( nTemp 1 )
  1449.   IF nTemp <= nMembers
  1450.     GOTO AllFamilyMembersEnteredAux
  1451.   ENDIF
  1452. ENDIF
  1453.  
  1454.  
  1455.  
  1456. ;xxxxxxxxxxxx CHOOSE MEMBER WITH INCOMPLETE INFO xxxxxxxxxx
  1457. [PickAFamilyMemberWithNoInfo]
  1458. SETTEMP nSel = 1
  1459. IF nMembers > 1
  1460.   BUSY 1
  1461.   ARGUMENT "Just a moment while the wizard takes stock of the family..."
  1462.  
  1463.   SETTEMP next = 1
  1464.   SETTEMP nItems = 1
  1465.   SETTEMP pixLst = ""
  1466.   SETTEMP nmLst = ""
  1467.   SETTEMP indexArray = ""
  1468.  
  1469.   GOSUB LoadNamePixGrp
  1470.   BUSY 0
  1471.  
  1472.   IF nItems = 1 ; should never occur
  1473.     nSel = 1
  1474.   ELSE
  1475.     IF nItems = 2
  1476.      SETTEMP nSel = arrayelement( indexArray 1 )
  1477.     ELSE
  1478.  
  1479.      BACKSTOP
  1480.      PAGE
  1481.      WIZPIC wizpics\wizfm128.gif
  1482.      NAME nItem
  1483.      TYPE LIST
  1484.      DESCRIPTION_RE caption
  1485.      ARGUMENT arrayelement( nmLst 1 )@1@arrayelement( pixLst 1 )
  1486.      ARGUMENT arrayelement( nmLst 2 )@2@arrayelement( pixLst 2 )
  1487.      ARGUMENT arrayelement( nmLst 3 )@3@arrayelement( pixLst 3 )
  1488.      ARGUMENT arrayelement( nmLst 4 )@4@arrayelement( pixLst 4 )
  1489.      ARGUMENT arrayelement( nmLst 5 )@5@arrayelement( pixLst 5 )
  1490.      ARGUMENT arrayelement( nmLst 6 )@6@arrayelement( pixLst 6 )
  1491.      ARGUMENT arrayelement( nmLst 7 )@7@arrayelement( pixLst 7 )
  1492.      ARGUMENT arrayelement( nmLst 8 )@8@arrayelement( pixLst 8 )
  1493.      ARGUMENT arrayelement( nmLst 9 )@9@arrayelement( pixLst 9 )
  1494.      ARGUMENT arrayelement( nmLst 10 )@10@arrayelement( pixLst 10 )
  1495.      ARGUMENT arrayelement( nmLst 11 )@11@arrayelement( pixLst 11 )
  1496.  
  1497.      SETTEMP nSel = arrayelement( indexArray nItem )
  1498.     ENDIF
  1499.   ENDIF
  1500. ENDIF
  1501.  
  1502.  
  1503.  
  1504. ;xxxxxxxxxxxxxxxxxxx LOAD MEMBER NAME / PHOTO ARRAYS xxxxxxxxxxxx
  1505. [LoadNamePixGrp]
  1506. IF next <= nMembers
  1507.   SETTEMP memPixVar = "memberPhoto",next
  1508.   SETTYPE eval( memPixVar ) = normal
  1509.   SETTEMP memNmVar = "memberName",next
  1510.   IF arrayelement( infoRetrievedArray next ) <> YY
  1511.     SETTEMP arrayelement( pixLst nItems ) = eval( memPixVar )
  1512.     SETTEMP arrayelement( nmLst nItems ) = eval( memNmVar )
  1513.     SETTEMP arrayelement( indexArray nItems ) = next
  1514.     SETTEMP nItems = add( nItems 1 )
  1515.   ENDIF
  1516.  
  1517.   SETTEMP next = add( next 1 )
  1518.   GOTO LoadNamePixGrp
  1519. ENDIF
  1520.  
  1521.  
  1522. ;xxxxxxxxxxxxxxx SET MEMBER'S VARIABLES xxxxxxxxxxxxxxxxx
  1523. [SetMemberTempVars]
  1524. SETTEMP memTypVar = "memberType",nSel
  1525. SETTEMP type = eval( memTypVar )
  1526.  
  1527. SETTEMP genderVar = "memberGender",nSel
  1528. SETTEMP gender = eval( genderVar )
  1529.  
  1530. SETTEMP pageName = "##NewPersonPage",nSel
  1531. SETTEMP pageVar = "memberPage",nSel
  1532.  
  1533. SETTEMP memPgStVar = "memberStyling",nSel
  1534. SETTEMP pers_template = eval( memPgStVar )
  1535.  
  1536. SETTEMP memNmVar = "memberName",nSel
  1537. SETTEMP name = eval( memNmVar )
  1538.  
  1539. SETTEMP memPixVar = "memberPhoto",nSel
  1540. COPY photo = eval( memPixVar )
  1541.  
  1542. SETTEMP temp = "detCap"
  1543. SETTEMP detCap1Var = temp,"1",nSel
  1544. SETTEMP detCap2Var = temp,"2",nSel
  1545. SETTEMP detCap3Var = temp,"3",nSel
  1546.  
  1547. SETTEMP detCap1 = eval( detCap1Var )
  1548. SETTEMP detCap2 = eval( detCap2Var )
  1549. SETTEMP detCap3 = eval( detCap3Var )
  1550.  
  1551. SETTEMP interestsVar = "memberInterests",nSel
  1552. SETTEMP interests = eval( interestsVar )
  1553.  
  1554. SETTEMP favsVar = "memberFavs",nSel
  1555. SETTEMP favs = eval( favsVar )
  1556.  
  1557. SETTEMP hopesVar = "memberHopes",nSel
  1558. SETTEMP hopes = eval( hopesVar )
  1559.  
  1560. SETTEMP ageVar = "memberAge",nSel
  1561. SETTEMP age = eval( ageVar )
  1562.  
  1563. SETTEMP gradeVar = "memberGrade",nSel
  1564. SETTEMP grade = eval( gradeVar )
  1565.  
  1566. SETTEMP memMPVar = "memberSimple",nSel
  1567. SETTEMP pageOrSite = eval( memMPVar )
  1568.  
  1569. SETTEMP petDescVar = "memberPetSDesc",nSel
  1570. SETTEMP petDesc = eval( petDescVar )
  1571.  
  1572. SETTEMP pageMPFavsVar = "pageMPFavs",nSel
  1573. SETTEMP pageMPActsVar = "pageMPActs",nSel
  1574. SETTEMP pageMPNewsVar = "pageMPNews",nSel
  1575. SETTEMP pageMPGiftVar = "pageMPGift",nSel
  1576. SETTEMP pageMPPhoVar = "pageMPPho",nSel
  1577.  
  1578. SETTEMP defPhotoVar = "memberPhoto",nSel
  1579. SETTEMP defPhoto = eval( defPhotoVar )
  1580.  
  1581.  
  1582.  
  1583.  
  1584. [DeterminePersPages]
  1585. ; load pointers with page IDs
  1586. SETTEMP pageMPFavsVar = "pageMPFavs",nSel
  1587. SETTEMP pageMPActsVar = "pageMPActs",nSel
  1588. SETTEMP pageMPNewsVar = "pageMPNews",nSel
  1589. SETTEMP pageMPGiftVar = "pageMPGift",nSel
  1590. SETTEMP pageMPPhoVar = "pageMPPho",nSel
  1591. ;  remove indirect from page IDs
  1592. SETTEMP temp1 = eval( pageMPFavsVar )
  1593. SETTEMP temp2 = eval( pageMPActsVar )
  1594. SETTEMP temp3 = eval( pageMPNewsVar )
  1595. SETTEMP temp4 = eval( pageMPGiftVar )
  1596. SETTEMP temp5 = eval( pageMPPhoVar )
  1597. ;  see if pages exist
  1598. SETTEMP hasMPFavs = istopic( temp1 )
  1599. SETTEMP hasMPActs = istopic( temp2 )
  1600. SETTEMP hasMPNews = istopic( temp3 )
  1601. SETTEMP hasMPGift = istopic( temp4 )
  1602. SETTEMP hasMPPho = istopic( temp5 )
  1603.  
  1604.  
  1605. [KillOldPages]    ;rebuild with empty pages
  1606.   ;the linkage page
  1607. SETTEMP memberLinkPageVar = "memberLinkagePage",nSel
  1608. SETTEMP emptyPageIntName = eval( memberLinkPageVar )
  1609. SETTEMP emptyPageName = "##PersonalLinkagePage",nSel
  1610. GOSUB MakeEmptyPage
  1611.  
  1612. SETTEMP memR = "member",nSel
  1613.  
  1614. IF hasMPFavs = YY
  1615.   SETTEMP emptyPageIntName = eval( pageMPFavsVar )
  1616.   SETTEMP emptyPageName = "##Favorites","Member",nSel
  1617.   GOSUB MakeEmptyPage
  1618.  
  1619.   SETTEMP delVarRoot = memR,"favPage"
  1620.   SETTEMP dPgN = "##Favorites"
  1621.  
  1622.   SETTEMP delVar = delVarRoot,1
  1623.   SETTEMP emptyPageIntName = eval( delVar )
  1624.   SETTEMP emptyPageName = dPgN,1,memR
  1625.   GOSUB MakeEmptyPage
  1626.  
  1627.   SETTEMP delVar = delVarRoot,2
  1628.   SETTEMP emptyPageIntName = eval( delVar )
  1629.   SETTEMP emptyPageName = dPgN,2,memR
  1630.   GOSUB MakeEmptyPage
  1631.  
  1632.   SETTEMP delVar = delVarRoot,3
  1633.   SETTEMP emptyPageIntName = eval( delVar )
  1634.   SETTEMP emptyPageName = dPgN,3,memR
  1635.   GOSUB MakeEmptyPage
  1636.  
  1637.   SET hasMPFavs = NN
  1638. ENDIF
  1639.  
  1640. IF hasMPActs = YY
  1641.   SETTEMP emptyPageIntName = eval( pageMPActsVar )
  1642.   SETTEMP emptyPageName = "##Pastimes",memR
  1643.   GOSUB MakeEmptyPage
  1644.  
  1645.   SETTEMP delVarRoot = memR,"pasPage"
  1646.   SETTEMP dPgN = "##",memR,"Pastime"
  1647.  
  1648.   SETTEMP delVar = delVarRoot,1
  1649.   SETTEMP emptyPageIntName = eval( delVar )
  1650.   SETTEMP emptyPageName = dPgN,1
  1651.   GOSUB MakeEmptyPage
  1652.  
  1653.   SETTEMP delVar = delVarRoot,2
  1654.   SETTEMP emptyPageIntName = eval( delVar )
  1655.   SETTEMP emptyPageName = dPgN,2
  1656.   GOSUB MakeEmptyPage
  1657.  
  1658.   SETTEMP delVar = delVarRoot,3
  1659.   SETTEMP emptyPageIntName = eval( delVar )
  1660.   SETTEMP emptyPageName = dPgN,3
  1661.   GOSUB MakeEmptyPage
  1662.  
  1663.   SETTEMP delVar = delVarRoot,4
  1664.   SETTEMP emptyPageIntName = eval( delVar )
  1665.   SETTEMP emptyPageName = dPgN,4
  1666.   GOSUB MakeEmptyPage
  1667.  
  1668.   SETTEMP delVarRoot = memR,"actsPage"
  1669.   SETTEMP dPgN = "##Activity"
  1670.  
  1671.   SETTEMP delVar = delVarRoot,1
  1672.   SETTEMP emptyPageIntName = eval( delVar )
  1673.   SETTEMP emptyPageName = dPgN,1,memR
  1674.   GOSUB MakeEmptyPage
  1675.  
  1676.   SETTEMP delVar = delVarRoot,2
  1677.   SETTEMP emptyPageIntName = eval( delVar )
  1678.   SETTEMP emptyPageName = dPgN,2,memR
  1679.   GOSUB MakeEmptyPage
  1680.  
  1681.   SETTEMP delVar = delVarRoot,3
  1682.   SETTEMP emptyPageIntName = eval( delVar )
  1683.   SETTEMP emptyPageName = dPgN,3,memR
  1684.   GOSUB MakeEmptyPage
  1685.  
  1686.   SETTEMP delVar = delVarRoot,4
  1687.   SETTEMP emptyPageIntName = eval( delVar )
  1688.   SETTEMP emptyPageName = dPgN,4,memR
  1689.   GOSUB MakeEmptyPage
  1690.  
  1691.   SET hasMPActs = NN
  1692. ENDIF
  1693.  
  1694. IF hasMPNews = YY
  1695.   SETTEMP emptyPageIntName = eval( pageMPNewsVar )
  1696.   SETTEMP emptyPageName = "##PersNewsMember",nSel
  1697.   GOSUB MakeEmptyPage
  1698.  
  1699.   SETTEMP delVarRoot = memR,"notionPage"
  1700.  
  1701.   SETTEMP delVar = delVarRoot,1
  1702.   SETTEMP emptyPageIntName = eval( delVar )
  1703.   SETTEMP emptyPageName = "##Notion",1,memR
  1704.   GOSUB MakeEmptyPage
  1705.  
  1706.   SETTEMP delVar = delVarRoot,2
  1707.   SETTEMP emptyPageIntName = eval( delVar )
  1708.   SETTEMP emptyPageName = "##Notion",2,memR
  1709.   GOSUB MakeEmptyPage
  1710.  
  1711.   SETTEMP delVar = delVarRoot,3
  1712.   SETTEMP emptyPageIntName = eval( delVar )
  1713.   SETTEMP emptyPageName = "##Notion",3,memR
  1714.   GOSUB MakeEmptyPage
  1715.  
  1716.   SET hasMPNews = NN
  1717. ENDIF
  1718.  
  1719. IF hasMPPho = YY
  1720.    ;delete the thumbnails
  1721.   SETTEMP pictureNameRoot = memR,"Pictures"
  1722.   SETTEMP emptyPageIntName = eval( pageMPPhoVar )
  1723.   SETTEMP emptyPageName = "PhotoThumbnails",pictureNameRoot
  1724.   GOSUB MakeEmptyPage
  1725.    
  1726.   ;delete the indiv. pix
  1727.   SETTEMP nPicturesVar = "nMember",nSel
  1728.   SETTEMP GPCDnPictures = eval( nPicturesVar )
  1729.   SETTEMP nNumber = 1
  1730.   SETTEMP photo_mode = ""
  1731.   SETTEMP albumTopic = ""
  1732.   SETTEMP ind_pix_template = "Empty Page"
  1733.   SETTEMP photoPageNameVar = "pageMember",nSel,"Photo"
  1734.   GOSUB BuildIndPages
  1735.   SET  hasMPPho = NN
  1736. ENDIF
  1737.  
  1738. IF hasMPGift = YY
  1739.   SETTEMP emptyPageName = "##PersGiftList",memR
  1740.   SETTEMP emptyPageIntName = eval( pageMPGiftVar )
  1741.   GOSUB MakeEmptyPage
  1742.   SET hasMPGift = YY
  1743. ENDIF
  1744.  
  1745. ;xxxxxxxxxxxxxxxxxxxxxxxx CLEAR MEMBER VARIABLES  xxxxxxxxxxxxxxxxxxx
  1746. [InitAddMem]
  1747. GOSUB SetIntrstTypes
  1748.  
  1749. SETTEMP age = ""
  1750. SETTEMP grade = ""
  1751. SETTEMP petDesc = ""
  1752. SETTEMP gender = ""
  1753. SETTEMP title = ""
  1754. SETTEMP pers_template = ""
  1755. SETTEMP text = ""
  1756. SETTEMP nItem = ""
  1757. SETTEMP name = ""
  1758. SETTEMP hasMPFavs = ""
  1759. SETTEMP hasMPActs = ""
  1760. SETTEMP hasMPNews = ""
  1761. SETTEMP hasMPGift = ""
  1762. SETTEMP hasMPPho = ""
  1763. SETTEMP alreadyExistsMeetFamilySection = istopic( pageMeetFamily )
  1764. SETTEMP pageOrSite = ""
  1765. SETTEMP nSel = ""
  1766.  
  1767. SETTEMP pers_pix1 = "Do you have an electronic picture of "
  1768. SETTEMP pers_pix2 = "?  What we need is a file that contains the electronic image of "
  1769. SETTEMP pers_pix2a = " (such as you would get from a scanner, a digital camera, or a picture disk)."
  1770. SETTEMP pers_pix3 = "\nSelect a file that contains a photograph to use on the personal Web page.  Press the browse button to search for a picture. You can easily change the picture later."
  1771. SETTEMP facts1 = "Details about "
  1772. SETTEMP pet_n1 = "Do you have a picture of "
  1773. SETTEMP pet_n2 = "?  If you do, select one to use now.  If you don't have one available now (in digital format), you can add it later."
  1774. SETTEMP templ1 = "Now pick a page style for "
  1775. SETTEMP templ2 = "'s personal page on the Family Web Site.  This styling determines how the page is decorated."
  1776. SETTEMP name = ""
  1777. SETTEMP type = "Adult"
  1778. SETTEMP photo = ""
  1779. SETTEMP interests = ""
  1780. SETTEMP favs = ""
  1781. SETTEMP hopes = ""
  1782. SETTEMP mod_caption = "In order to make changes to a family member's page, you must pick one to modify.\n\nChoose a family member from the list below."
  1783. SETTEMP fill_caption = "The next step is to fill out the pages for each of the family members.  You can do this in any order you want.  Pick one of the family members from the list below."
  1784. SETTEMP little_gifts = ""
  1785. SETTEMP prefs_sizes = ""
  1786. SETTEMP dislikes = ""
  1787. SETTEMP dream_gifts = ""
  1788. SETTEMP doPreview = ""
  1789.  
  1790. #INCLUDE scripts\membertx.dat
  1791.